home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 21 / CU Amiga Magazine's Super CD-ROM 21 (1998)(EMAP Images)(GB)[!][issue 1998-04].iso / CUCD / Programming / VisualBuilder / source / ObjWinSubs.c < prev    next >
Text File  |  1997-09-07  |  6KB  |  133 lines
  1. #define VBBOOL    1
  2. #define VBMENU    2
  3. #define VBSTRING  3
  4. #define VBINTEGER 4
  5. #define VBLIST    5
  6.  
  7. /* Apply the changes as the were made to the current object */
  8. VOID SetProperty(int type,Object *actobj,Object *obj, ULONG property)
  9. { 
  10.   struct VBList *tmpvbl;
  11.   
  12.   switch (type)
  13.   {
  14.     case VBLIST:
  15.       DoMethod((Object *)XGet(obj,MUIA_Popobject_Object),MUIM_List_GetEntry,MUIV_List_GetEntry_Active,&tmpvbl);
  16.       set(actobj,property,atoi(tmpvbl->Key));
  17.       break;
  18.     case VBBOOL:
  19.       set(actobj,property,XGet(obj,MUIA_Cycle_Active));
  20.       break;
  21.     case VBMENU:
  22.       break;
  23.     case VBSTRING:
  24.       break;
  25.     case VBINTEGER:
  26.       break;
  27.   }
  28. }
  29.  
  30. /* Get the props of the current object and show them in the proplist */
  31. /* actobj is the currently active object in the user's application   */
  32. /* destobj is the object in the object window                        */
  33. VOID GetProperty(int type,Object *actobj,Object *destobj,ULONG property)
  34. {
  35.   int i;
  36.   Object *list;
  37.   struct VBList *x;
  38.   
  39.   switch (type)
  40.   {
  41.     case VBLIST:
  42.       list=(Object *)XGet(destobj,MUIA_Popobject_Object);  
  43.       DoMethod(list,MUIM_List_GetEntry,0,&x);
  44.       for (i=1;atoi(x->Key)!=XGet(actobj,property);i++)
  45.       { DoMethod(list,MUIM_List_GetEntry,i,&x);
  46.         if(x==NULL) break;
  47.       }
  48.         
  49.       if(x!=NULL) set(destobj,MUIA_String_Contents,x->Value);
  50.       break;
  51.     case VBBOOL:
  52.       set(destobj,MUIA_Cycle_Active,XGet(actobj,property));
  53.       break;
  54.     case VBMENU:
  55.       break;
  56.     case VBSTRING:
  57.       break;
  58.     case VBINTEGER:
  59.       break;
  60.   }
  61. }
  62.    
  63.  
  64. VOID ApplyChanges(Object *actobj)
  65. {
  66.   SetProperty(VBLIST,    actobj, a->BackGround,  MUIA_Background);
  67.   SetProperty(VBMENU,    actobj, a->ContextMenu, MUIA_ContextMenu);
  68.   SetProperty(VBSTRING,  actobj, a->ControlChar, MUIA_ControlChar);
  69.   SetProperty(VBBOOL,    actobj, a->CycleChain,  MUIA_CycleChain);
  70.   SetProperty(VBBOOL,    actobj, a->Disabled,    MUIA_Disabled);
  71.   SetProperty(VBBOOL,    actobj, a->Draggable,   MUIA_Draggable);
  72.   SetProperty(VBBOOL,    actobj, a->Dropable,    MUIA_Dropable);
  73.   SetProperty(VBLIST,    actobj, a->Font,        MUIA_Font);
  74.   SetProperty(VBLIST,    actobj, a->Frame,       MUIA_Frame);
  75.   SetProperty(VBBOOL,    actobj, a->FramePhantomHoriz,MUIA_FramePhantomHoriz);
  76.   SetProperty(VBSTRING,  actobj, a->FrameTitle,  MUIA_FrameTitle);
  77.   SetProperty(VBINTEGER, actobj, a->HelpLine,    MUIA_HelpLine);
  78.   SetProperty(VBSTRING,  actobj, a->HelpNode,    MUIA_HelpNode);
  79.   SetProperty(VBBOOL,    actobj, a->HorizDisappear,MUIA_HorizDisappear);
  80.   SetProperty(VBINTEGER, actobj, a->HorizWeight, MUIA_HorizWeight);
  81.   SetProperty(VBINTEGER, actobj, a->InnerBottom, MUIA_InnerBottom);
  82.   SetProperty(VBINTEGER, actobj, a->InnerLeft,   MUIA_InnerLeft);
  83.   SetProperty(VBINTEGER, actobj, a->InnerRight,  MUIA_InnerRight);
  84.   SetProperty(VBINTEGER, actobj, a->InnerTop,    MUIA_InnerTop);
  85.   SetProperty(VBLIST,    actobj, a->InputMode,   MUIA_InputMode);
  86.   SetProperty(VBINTEGER, actobj, a->MaxHeigth,   MUIA_MaxHeight);
  87.   SetProperty(VBINTEGER, actobj, a->MaxWidth,    MUIA_MaxWidth);
  88.   SetProperty(VBSTRING,  actobj, a->ObjectID,    MUIA_ObjectID);
  89.   SetProperty(VBBOOL,    actobj, a->Selected,    MUIA_Selected);
  90.   SetProperty(VBSTRING,  actobj, a->ShortHelp,   MUIA_ShortHelp);
  91.   SetProperty(VBBOOL,    actobj, a->ShowMe,      MUIA_ShowMe);
  92.   SetProperty(VBBOOL,    actobj, a->ShowSelState,MUIA_ShowSelState);
  93.   SetProperty(VBBOOL,    actobj, a->VertDisappear,MUIA_VertDisappear);
  94.   SetProperty(VBINTEGER, actobj, a->VertWeight,  MUIA_VertWeight);
  95.   SetProperty(VBINTEGER, actobj, a->Weight,      MUIA_Weight);
  96. }
  97.  
  98. VOID UpdateObjectsWindow(Object *obj)
  99. {
  100.   GetProperty(VBLIST,    obj, a->BackGround,  MUIA_Background);
  101.   GetProperty(VBMENU,    obj, a->ContextMenu, MUIA_ContextMenu);
  102.   GetProperty(VBSTRING,  obj, a->ControlChar, MUIA_ControlChar);
  103.   GetProperty(VBBOOL,    obj, a->CycleChain,  MUIA_CycleChain);
  104.   GetProperty(VBBOOL,    obj, a->Disabled,    MUIA_Disabled);
  105.   GetProperty(VBBOOL,    obj, a->Draggable,   MUIA_Draggable);
  106.   GetProperty(VBBOOL,    obj, a->Dropable,    MUIA_Dropable);
  107.   GetProperty(VBLIST,    obj, a->Font,        MUIA_Font);
  108.   GetProperty(VBLIST,    obj, a->Frame,       MUIA_Frame);
  109.   GetProperty(VBBOOL,    obj, a->FramePhantomHoriz,MUIA_FramePhantomHoriz);
  110.   GetProperty(VBSTRING,  obj, a->FrameTitle,  MUIA_FrameTitle);
  111.   GetProperty(VBINTEGER, obj, a->HelpLine,    MUIA_HelpLine);
  112.   GetProperty(VBSTRING,  obj, a->HelpNode,    MUIA_HelpNode);
  113.   GetProperty(VBBOOL,    obj, a->HorizDisappear,MUIA_HorizDisappear);
  114.   GetProperty(VBINTEGER, obj, a->HorizWeight, MUIA_HorizWeight);
  115.   GetProperty(VBINTEGER, obj, a->InnerBottom, MUIA_InnerBottom);
  116.   GetProperty(VBINTEGER, obj, a->InnerLeft,   MUIA_InnerLeft);
  117.   GetProperty(VBINTEGER, obj, a->InnerRight,  MUIA_InnerRight);
  118.   GetProperty(VBINTEGER, obj, a->InnerTop,    MUIA_InnerTop);
  119.   GetProperty(VBLIST,    obj, a->InputMode,   MUIA_InputMode);
  120.   GetProperty(VBINTEGER, obj, a->MaxHeigth,   MUIA_MaxHeight);
  121.   GetProperty(VBINTEGER, obj, a->MaxWidth,    MUIA_MaxWidth);
  122.   GetProperty(VBSTRING,  obj, a->ObjectID,    MUIA_ObjectID);
  123.   GetProperty(VBBOOL,    obj, a->Selected,    MUIA_Selected);
  124.   GetProperty(VBSTRING,  obj, a->ShortHelp,   MUIA_ShortHelp);
  125.   GetProperty(VBBOOL,    obj, a->ShowMe,      MUIA_ShowMe);
  126.   GetProperty(VBBOOL,    obj, a->ShowSelState,MUIA_ShowSelState);
  127.   GetProperty(VBBOOL,    obj, a->VertDisappear,MUIA_VertDisappear);
  128.   GetProperty(VBINTEGER, obj, a->VertWeight,  MUIA_VertWeight);
  129.   GetProperty(VBINTEGER, obj, a->Weight,      MUIA_Weight);
  130.  
  131. }  
  132.  
  133.